home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD School House 9
/
CD School House 9.0 - Wayzata Technology (1994).iso
/
mac
/
MAC
/
School House
/
Misc.
/
Exercise
/
card_4577.txt
< prev
next >
Wrap
Text File
|
1988-01-10
|
8KB
|
318 lines
-- card: 4577 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2602
-- name: PRESS BEHIND NECK
-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=145 top=61 right=82 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EXERCISE
-- part 11 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=184 top=105 right=219 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: WEIGHT
----- HyperTalk script -----
on mouseWithin
get the scroll of card field "WEIGHT"
set the scroll of card field "DATE" to it
set the scroll of card field "REPS" to it
set the scroll of card field "SETS" to it
end mouseWithin
-- part 12 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=296 top=106 right=220 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: REPS
----- HyperTalk script -----
on mouseWithin
get the scroll of card field "REPS"
set the scroll of card field "DATE" to it
set the scroll of card field "WEIGHT" to it
set the scroll of card field "SETS" to it
end mouseWithin
-- part 13 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=412 top=106 right=223 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SETS
----- HyperTalk script -----
on mouseWithin
get the scroll of card field "SETS"
set the scroll of card field "DATE" to it
set the scroll of card field "WEIGHT" to it
set the scroll of card field "REPS" to it
end mouseWithin
-- part 14 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=52 top=105 right=220 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 128
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DATE
----- HyperTalk script -----
on mouseWithin
get the scroll of card field "DATE"
set the scroll of card field "WEIGHT" to it
set the scroll of card field "REPS" to it
set the scroll of card field "SETS" to it
end mouseWithin
-- part 19 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=28 top=275 right=297 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NEW EXERCISE
----- HyperTalk script -----
on mouseUp
ask "What is the name of the exercise?" with "New Exercise"
doMenu copy card
doMenu paste card
set the name of this card to it
put it into card field "exercise"
put " " into card field "weight"
put " " into card field "reps"
put " " into card field "sets"
end mouseUp
-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=204 top=274 right=296 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: WEIGHT
----- HyperTalk script -----
on mouseUp
PUSH CARD
PUT SHORT NAME OF THIS CARD INTO EXNAME
GO TO CARD "CHART"
PUT CARD FIELD "WEIGHT" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
PUT " WEIGHT" AFTER BACKGROUND FIELD "GRAPH NAME"
put the userLevel into saveLevel
if the userLevel < 3 then set userLevel to 3 -- "Painting"
if the userLevel < 3 then exit mouseUp
CLEARSCREEN
put empty into background field "total"
reset paint
choose rect tool
set lineSize to 1
set pattern to 14
set filled to true
put frameleft() into horiz
put maxLine(field "DATA") into maxValue
put the number of lines in field "DATA" into dataCount
put round(framewidth()/dataCount) into horizStep
put round(horizStep * 3/4) into width
repeat with i = 1 to dataCount
get line i of field "DATA"
if it is not empty then
put round(frameheight() * it / maxValue) into height
drag from horiz,framebottom()-height to horiz+width,framebottom()
end if
add horizStep to horiz
end repeat
reset paint
choose browse tool
set userLevel to saveLevel
end mouseUp
-- part 21 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=316 top=274 right=296 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: REPS
----- HyperTalk script -----
on mouseUp
PUSH CARD
PUT SHORT NAME OF THIS CARD INTO EXNAME
GO TO CARD "CHART"
PUT CARD FIELD "REPS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
PUT " REPS" AFTER BACKGROUND FIELD "GRAPH NAME"
put the userLevel into saveLevel
if the userLevel < 3 then set userLevel to 3 -- "Painting"
if the userLevel < 3 then exit mouseUp
CLEARSCREEN
put empty into background field "total"
reset paint
choose rect tool
set lineSize to 1
set pattern to 14
set filled to true
put frameleft() into horiz
put maxLine(field "DATA") into maxValue
put the number of lines in field "DATA" into dataCount
put round(framewidth()/dataCount) into horizStep
put round(horizStep * 3/4) into width
repeat with i = 1 to dataCount
get line i of field "DATA"
if it is not empty then
put round(frameheight() * it / maxValue) into height
drag from horiz,framebottom()-height to horiz+width,framebottom()
end if
add horizStep to horiz
end repeat
reset paint
choose browse tool
set userLevel to saveLevel
end mouseUp
-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=426 top=274 right=296 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SETS
----- HyperTalk script -----
on mouseUp
PUSH CARD
PUT SHORT NAME OF THIS CARD INTO EXNAME
GO TO CARD "CHART"
PUT CARD FIELD "SETS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
PUT " SETS" AFTER BACKGROUND FIELD "GRAPH NAME"
put the userLevel into saveLevel
if the userLevel < 3 then set userLevel to 3 -- "Painting"
if the userLevel < 3 then exit mouseUp
CLEARSCREEN
put empty into background field "total"
reset paint
choose rect tool
set lineSize to 1
set pattern to 14
set filled to true
put frameleft() into horiz
put maxLine(field "DATA") into maxValue
put the number of lines in field "DATA" into dataCount
put round(framewidth()/dataCount) into horizStep
put round(horizStep * 3/4) into width
repeat with i = 1 to dataCount
get line i of field "DATA"
if it is not empty then
put round(frameheight() * it / maxValue) into height
drag from horiz,framebottom()-height to horiz+width,framebottom()
end if
add horizStep to horiz
end repeat
reset paint
choose browse tool
set userLevel to saveLevel
end mouseUp
-- part contents for card part 6
----- text -----
PRESS BEHIND NECK
-- part contents for card part 14
----- text -----
1/5/88
1/7/88
1/9/88
-- part contents for card part 11
----- text -----
33
44
44
-- part contents for card part 12
----- text -----
10
10
10
-- part contents for card part 13
----- text -----
1
2
2